#lang racket

(require "nd-table.rkt" "rename-mutable-pair-ops.rkt")

(define tab (make-table))

(insert! (list 1 2 3) 'test1 tab)

(insert! (list 1 2 4) 'test2 tab)

(insert! (list 5) 'test3 tab)

(lookup (list 1 2 3) tab)

(lookup (list 1 2 4) tab)

(lookup (list 5) tab)

(print-list tab)